procedure WriteInt(i: Integer);
begin
  Writeln(IntToStr(i));
end;

